home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Leser 15 / Amiga Plus Leser CD 15.iso / Tools / Freeware / AmiPCB / ARexx / EmptyScript.AmiPCB < prev    next >
Encoding:
Text File  |  2002-03-13  |  2.4 KB  |  62 lines
  1. /*********************************************************************
  2.    * Ce fichier vous donne un exemple de structure possible
  3.      pour un fichier de macros appelé par AmiPCB, par le menu
  4.      Macros.
  5.  
  6.    * This is a skeleton for ARexx scripts written by Yourself.
  7.      It gives you an example for the recommended structure
  8.      for a script file called by AmiPCB.
  9.  
  10.    * Dies ist ein Grundgerüst für Ihre selbstgeschriebenen ARexx
  11.      Skripte. Es gibt Ihnen ein Beispiel dafür, wie die Struktur
  12.      eines von AmiPCB aufgerufenen Skripts aussehen muss.
  13. *********************************************************************/
  14.  
  15. options results     /* indispensable pour récupérer le résultat des macros */
  16.                     /* Turn on the returning of values */
  17.                     /* Einschalten von Rückgabewerten */
  18.  
  19. signal on error     /* pour l'interception des erreurs */
  20. signal on syntax    /* for error handling */
  21.                     /* zur Fehlerbehandlung */
  22.  
  23. /*********************************************************************
  24.    Les lignes suivantes peuvent servir à localiser le script
  25.    The following lines are for localization of your scripts
  26.    Die folgenden Zeilen dienen der Lokalisation Ihrer Skripte
  27.    fr=0 -> English
  28.    fr=1 -> Français (French)
  29.    fr=2 -> Deutsch (German)
  30.  
  31.    Exemple / Example / Beispiel
  32.         select
  33.             when fr=1 then 'MESSAGE("Positionnement composant impossible")'
  34.             when fr=2 then 'MESSAGE("Platzierung der Komponente unmöglich")'
  35.             otherwise       'MESSAGE("Placement of the component impossible")'
  36.         end
  37. *********************************************************************/
  38.  
  39. fr = 'ARexx/InitVars.AmiPCB'()
  40.  
  41. /*********************************************************************
  42.    Votre programme devra être placé ici
  43.    Insert Your program code here
  44.    Fügen Sie hier Ihren Programmcode ein
  45. *********************************************************************/
  46.  
  47. exit
  48.  
  49. /*********************************************************************
  50.    Traitement des erreurs, interruption du programme
  51.    Error handling, program interruption
  52.    Fehlerbehandlung, Programm-Unterbrechung
  53. *********************************************************************/
  54. syntax:
  55. erreur=RC
  56. Call 'ARexx/_Syntax.rexx'(fr,'The_Name_Of_Your_Script.AmiPCB',SIGL,erreur)
  57. exit
  58.  
  59. error:
  60. Call 'ARexx/_Error.rexx'(fr,'The_Name_Of_Your_Script.AmiPCB',SIGL)
  61. exit
  62.